program task1_random;

function randomrange (M,N:integer):integer;
var X:integer;
begin
randomize;
X:=N-M+1;
writeln(random(X)+M);
end;

begin
Writeln('A various number from 10 to 20');
randomrange(10,20);

Writeln('A various number from 23 to 30');
randomrange(23,30);

Writeln('A various number from -23 to -13');
randomrange(-23,-13);
end.